home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / ant / antenna2 / drivpt.bas < prev    next >
BASIC Source File  |  1980-01-03  |  9KB  |  300 lines
  1. 10 REM  05/13/86   AHMAD FAIZAL MOHD ZAIN
  2. 20 CLS:KEY OFF
  3. 30 T$="TO FIND THE DRIVING POINT IMPEDANCE OF AN N-ELEMENT LINEAR ARRAY":L=1: GOSUB 100
  4. 40 T$="OF HALF-WAVE DIPOLES":L=2:GOSUB 100
  5. 50 DIM I(20),ZDR(20),ZDX(20),R(20,20),X(20,20),CURRENT(20,20)
  6. 60 DIM D(140),ZR(140),ZX(140),PHI(20,20),THETA(20,20),A(20),Z(20,20)
  7. 70 DIM WATT(20),RIN(20),RS(20),ECD(20),REALI(20),IMAGI(20),Z0(20)
  8. 80 PI=3.141592
  9. 90 DEF FN LOGTEN(X)=LOG(X)/LOG(10):GOTO 110
  10. 100 LOCATE L,(80-LEN(T$))/2+1:PRINT T$:RETURN
  11. 110 :
  12. 120 PRINT:PRINT:PRINT
  13. 130 FOR I=0 TO 139
  14. 140   READ D(I),ZR(I),ZX(I)
  15. 150 NEXT I
  16. 160 NUMDATA=140: REM NUMBER OF DATA
  17. 170 INPUT "ENTER NUMBER OF ELEMENTS";N
  18. 180 INPUT "ENTER SPACING IN TERMS OF LAMBDA";LAMBDA
  19. 190 PRINT
  20. 200 FOR J=1 TO N
  21. 210   PRINT "ENTER CURRENT AT ELEMENT #";J;:INPUT I(J)
  22. 220   PRINT "PHASE ANGLE OF CURRENT ";:INPUT A(J)
  23. 230 PRINT
  24. 240   A(J)=A(J)*3.141592/180    'CONVERT TO RADIANS
  25. 250 NEXT J
  26. 260 REM  CALCULATE CURRENT MATRIX
  27. 270 FOR ROW=1 TO N
  28. 280   FOR COL=1 TO N
  29. 290     CURRENT(ROW,COL)=I(COL)/I(ROW): PHI(ROW,COL)=A(COL)-A(ROW)
  30. 300   NEXT COL
  31. 310 NEXT ROW
  32. 320 :
  33. 330 FOR ROW=1 TO N
  34. 340   FOR COL=1 TO N
  35. 350     DISTANCE=ABS(ROW-COL)*LAMBDA
  36. 360     DATANO=100*DISTANCE
  37. 370     R(ROW,COL)=ZR(DATANO): X(ROW,COL)=ZX(DATANO)
  38. 380     Z(ROW,COL)=SQR(ZR(DATANO)*ZR(DATANO) + ZX(DATANO)*ZX(DATANO))
  39. 390     THETA(ROW,COL)=ATN(ZX(DATANO)/ZR(DATANO))
  40. 400     IF ZR(DATANO)<0 THEN THETA(ROW,COL)=THETA(ROW,COL)+3.14159
  41. 410   NEXT COL
  42. 420 NEXT ROW
  43. 430 PRINT
  44. 440 :
  45. 450 REM  CALCULATE DRIVING POINT IMPEDANCE
  46. 460 ZDR=0:ZDX=0:WATTRAD=0
  47. 470 FOR ROW=1 TO N
  48. 480 ZDR=0:ZDX=0
  49. 490   FOR COL=1 TO N
  50. 500     MAG=CURRENT(ROW,COL)*Z(ROW,COL)
  51. 510     ANG=PHI(ROW,COL)+THETA(ROW,COL)
  52. 520     ZDR=MAG*COS(ANG) + ZDR
  53. 530     ZDX=MAG*SIN(ANG) + ZDX
  54. 540   NEXT COL
  55. 550   ZDR(ROW)=ZDR:ZDX(ROW)=ZDX
  56. 560   WATT(ROW)=I(ROW)*I(ROW)*ZDR(ROW)/2
  57. 570   WATTRAD=WATT(ROW) + WATTRAD:REM POWER RADIATED BY ARRAY
  58. 580 PRINT "IMPEDANCE OF ELEMENT (";ROW;") IS ";:PRINT USING "###.##";ZDR(ROW);
  59. 590 IF ZDX(ROW)<0 THEN SIGN$=" -j" ELSE SIGN$=" +j"
  60. 600 PRINT SIGN$;:PRINT USING "###.##";ABS(ZDX(ROW))
  61. 610 PRINT USING "POWER RADIATED FROM THIS ELEMENT IS ####.## WATTS";WATT(ROW)
  62. 620 PRINT
  63. 630 NEXT ROW
  64. 640 PRINT
  65. 650 PRINT USING "TOTAL POWER RADIATED = #####.##";WATTRAD;:PRINT" WATTS"
  66. 660 :
  67. 670 REM    TO CALCULATE DIRECTIVITY
  68. 680 :
  69. 690 TOTALI=0:TOTALA=0
  70. 700 FOR J=1 TO N
  71. 710   REALI(J)=I(J)*COS(A(J))
  72. 720   IMAGI(J)=I(J)*SIN(A(J))
  73. 730   TOTALI=TOTALI+ABS(REALI(J))
  74. 740   TOTALA=TOTALA+ABS(IMAGI(J))
  75. 750 NEXT J
  76. 760 MTOTAL=SQR(TOTALI*TOTALI+TOTALA*TOTALA)
  77. 770 EMAX=60*MTOTAL
  78. 780 PMAX=EMAX*EMAX/(240*PI)
  79. 790 PISO=WATTRAD/(4*PI)
  80. 800 DIRECT=PMAX/PISO
  81. 810 DIRECTDB=10*FN LOGTEN(DIRECT)
  82. 820 PRINT
  83. 830 PRINT USING" THE DIRECTIVITY IS ##.##";DIRECTDB;:PRINT" dB"
  84. 840 :
  85. 850 REM     TO CALCULATE CHAR. IMPEDANCE OF QUARTER WAVELENGTH
  86. 860 REM       TO MATCH ELEMENTS TO ONE LINE
  87. 870 :
  88. 880 PRINT:PRINT
  89. 890 PRINT"          FEEDLINE DESIGN USING QUARTER-WAVELENGTH LINE"
  90. 900 PRINT
  91. 910 INPUT"WHAT IS THE CHARACTERISTIC IMPEDANCE OF MAIN LINE";Z0
  92. 920 PRINT
  93. 930 FOR I=1 TO N
  94. 940   RS(I)=O.O
  95. 950   FOR K=1 TO N
  96. 960     RS(I)=WATT(K)/WATT(I)+RS(I)
  97. 970   NEXT K
  98. 980   RIN(I)=Z0*RS(I)
  99. 990   Z0(I)=SQR(RIN(I)*ZDR(I))
  100. 1000 PRINT USING"CHARACTERISTIC IMPEDANCE OF LINE ## ";I;:PRINT USING "IS ###.## OHMS";Z0(I)
  101. 1010 PRINT USING"INPUT IMPEDANCE OF THIS LINE IS ###.##";RIN(I)
  102. 1020 PRINT
  103. 1030 NEXT I
  104. 1040 :
  105. 1050 'EFFICIENCY OF ARRAY
  106. 1060 ' AHMAD FAIZAL MOHD ZAIN
  107. 1070 '      JUN 23, 1986
  108. 1080 PRINT:PRINT:PRINT
  109. 1090 PRINT"      THIS PART COMPUTES THE EFFICIENCY OF THE ARRAY"
  110. 1100 PRINT
  111. 1110 PI=3.141592
  112. 1120 SIGMA=5.7E+07          'CONDUCTIVITY OF COPPER
  113. 1130 MU0=4*PI*.0000001        'PERMITTIVITY OF FREE SPACE
  114. 1140 ECD=1
  115. 1150 INPUT"WORKING FREQUENCY (MHZ) ";FREQ
  116. 1160 INPUT"RADIUS OF WIRE    (M)   ";RAD
  117. 1170 PRINT
  118. 1180 LAMBDA=300/FREQ
  119. 1190 OMEGA=PI*FREQ*1000000!
  120. 1200 RHF=(.5/(2*PI*RAD))*SQR(OMEGA*MU0/SIGMA)
  121. 1210 FOR I=1 TO N
  122. 1220 ECD(I)=ZDR(I)/(RHF+ZDR(I))
  123. 1230 ECD=ECD(I)*ECD
  124. 1240 NEXT I
  125. 1250 PRINT USING"EFFICIENCY = ###.##";ECD*100;:PRINT" %"
  126. 1260 :
  127. 1270 PRINT:PRINT
  128. 1280 INPUT"DO YOU WANT ANOTHER GO ";AN$
  129. 1290 IF AN$="Y" OR AN$="y" THEN GOTO 170 ELSE END
  130. 1300 :
  131. 1310 REM  ZEROTH-ORDER MUTUAL IMPEDANCE BETWEEN PARALLEL,
  132. 1320 REM   SIDE-BY-SIDE, HALF-WAVE DIPOLE
  133. 1330 :
  134. 1340 DATA 0.0, 73.1296, 42.5445
  135. 1350 DATA .01, 73.0903, 38.8086
  136. 1360 DATA .02, 72.9246, 35.1090
  137. 1370 DATA .03, 72.6347, 31.4521
  138. 1380 DATA .04, 72.2232, 27.8467
  139. 1390 :
  140. 1400 DATA .05, 71.6917, 24.2932
  141. 1410 DATA .06, 71.0431, 20.7999
  142. 1420 DATA .07, 70.2800, 17.3723
  143. 1430 DATA .08, 69.4058, 14.0181
  144. 1440 DATA .09, 68.4223, 10.7371
  145. 1450 DATA .10, 67.3336, 7.5383
  146. 1460 DATA .11, 66.1719, 4.4274
  147. 1470 DATA .12, 64.8997, 1.4039
  148. 1480 DATA .13, 63.5223, -1.5281
  149. 1490 DATA .14, 62.0465, -4.3622
  150. 1500 :
  151. 1510 DATA .15, 60.4753, -7.0992
  152. 1520 DATA .16, 58.8152, -9.7331
  153. 1530 DATA .17, 57.0716, -12.2608
  154. 1540 DATA .18, 55.2514, -14.6774
  155. 1550 DATA .19, 53.3572, -16.9839
  156. 1560 :
  157. 1570 DATA .20, 51.3967, -19.1747
  158. 1580 DATA .21, 49.3797, -21.2491
  159. 1590 DATA .22, 47.3045, -23.2050
  160. 1600 DATA .23, 45.1764, -25.0407
  161. 1610 DATA .24, 43.0023, -26.7536
  162. 1620 :
  163. 1630 DATA .25, 40.7842, -28.3450
  164. 1640 DATA .26, 38.5292, -29.8126
  165. 1650 DATA .27, 36.2428, -31.1558
  166. 1660 DATA .28, 33.9325, -32.3732
  167. 1670 DATA .29, 31.6002, -33.4663
  168. 1680 :
  169. 1690 DATA .30, 29.2551, -34.4336
  170. 1700 DATA .31, 26.8992, -35.2747
  171. 1710 DATA .32, 24.5401, -35.9916
  172. 1720 DATA .33, 22.1832, -36.5854
  173. 1730 DATA .34, 19.8358, -37.0571
  174. 1740 :
  175. 1750 DATA .35, 17.5000, -37.4087
  176. 1760 DATA .36, 15.1829, -37.6416
  177. 1770 DATA .37, 12.8898, -37.7579
  178. 1780 DATA .38, 10.6278, -37.7597
  179. 1790 DATA .39, 8.3985, -37.6493
  180. 1800 :
  181. 1810 DATA .40, 6.2100, -37.4296
  182. 1820 DATA .41, 4.0667, -37.1015
  183. 1830 DATA .42, 1.9724, -36.6699
  184. 1840 DATA .43, -0.0687, -36.1382
  185. 1850 DATA .44, -2.0509, -35.5106
  186. 1860 :
  187. 1870 DATA .45, -3.9731, -34.7899
  188. 1880 DATA .46, -5.8299, -33.9805
  189. 1890 DATA .47, -7.6178, -33.0864
  190. 1900 DATA .48, -9.3320, -32.1128
  191. 1910 DATA .49, -10.9718, -31.0624
  192. 1920 :
  193. 1930 DATA .50, -12.5321, -29.9413
  194. 1940 DATA .51, -14.0105, -28.7513
  195. 1950 DATA .52, -15.4049, -27.4993
  196. 1960 DATA .53, -16.7132, -26.1904
  197. 1970 DATA .54, -17.9325, -24.8309
  198. 1980 :
  199. 1990 DATA .55, -19.0631, -23.4237
  200. 2000 DATA .56, -20.1024, -21.9750
  201. 2010 DATA .57, -21.0492, -20.4901
  202. 2020 DATA .58, -21.9020, -18.9754
  203. 2030 DATA .59, -22.6613, -17.4340
  204. 2040 :
  205. 2050 DATA .60, -23.3256, -15.8729
  206. 2060 DATA .61, -23.8922, -14.2970
  207. 2070 DATA .62, -24.3642, -12.7109
  208. 2080 DATA .63, -24.7424, -11.1198
  209. 2090 DATA .64, -25.0274, -9.5299
  210. 2100 :
  211. 2110 DATA .65, -25.2206, -7.9438
  212. 2120 DATA .66, -25.3233, -6.3674
  213. 2130 DATA .67, -25.3369, -4.8055
  214. 2140 DATA .68, -25.2634, -3.2640
  215. 2150 DATA .69, -25.1045, -1.7450
  216. 2160 :
  217. 2170 DATA .70, -24.8626, -0.2548
  218. 2180 DATA .71, -24.5389, 1.2023
  219. 2190 DATA .72, -24.1371, 2.6231
  220. 2200 DATA .73, -23.6602, 4.0039
  221. 2210 DATA .74, -23.1116, 5.3397
  222. 2220 :
  223. 2230 DATA .75, -22.4936, 6.6293
  224. 2240 DATA .76, -21.8100, 7.8683
  225. 2250 DATA .77, -21.0642, 9.0535
  226. 2260 DATA .78, -20.2606, 10.1813
  227. 2270 DATA .79, -19.4016, 11.2506
  228. 2280 :
  229. 2290 DATA .80, -18.4922, 12.2574
  230. 2300 DATA .81, -17.5345, 13.1984
  231. 2310 DATA .82, -16.5337, 14.0734
  232. 2320 DATA .83, -15.4941, 14.8807
  233. 2330 DATA .84, -14.4207, 15.6184
  234. 2340 :
  235. 2350 DATA .85, -13.3162, 16.2864
  236. 2360 DATA .86, -12.1855, 16.8832
  237. 2370 DATA .87, -11.0330, 17.4079
  238. 2380 DATA .88, -9.8640, 17.8597
  239. 2390 DATA .89, -8.6809, 18.2391
  240. 2400 :
  241. 2410 DATA .90, -7.4896, 18.5454
  242. 2420 DATA .91, -6.2939, 18.7768
  243. 2430 DATA .92, -5.0977, 18.9360
  244. 2440 DATA .93, -3.9052, 19.0238
  245. 2450 DATA .94, -2.7212, 19.0409
  246. 2460 :
  247. 2470 DATA .95, -1.5478, 18.9887
  248. 2480 DATA .96, -0.3900, 18.8686
  249. 2490 DATA .97, 0.7486, 18.6819
  250. 2500 DATA .98, 1.8635, 18.4307
  251. 2510 DATA .99, 2.9528, 18.1166
  252. 2520 :
  253. 2530 DATA 1.00, 4.0116, 17.7420
  254. 2540 DATA 1.01, 5.0360, 17.3073
  255. 2550 DATA 1.02, 6.0244, 16.8167
  256. 2560 DATA 1.03, 6.9738, 16.2728
  257. 2570 DATA 1.04, 7.8808, 15.6788
  258. 2580 :
  259. 2590 DATA 1.05, 8.7444, 15.0368
  260. 2600 DATA 1.06, 9.5616, 14.3502
  261. 2610 DATA 1.07, 10.3300, 13.6222
  262. 2620 DATA 1.08, 11.0473, 12.8566
  263. 2630 DATA 1.09, 11.7126, 12.0554
  264. 2640 :
  265. 2650 DATA 1.10, 12.3236, 11.2233
  266. 2660 DATA 1.11, 12.8772, 10.3624
  267. 2670 DATA 1.12, 13.3742, 9.4769
  268. 2680 DATA 1.13, 13.8139, 8.5703
  269. 2690 DATA 1.14, 14.1952, 7.6469
  270. 2700 :
  271. 2710 DATA 1.15, 14.5182, 6.7088
  272. 2720 DATA 1.16, 14.7824, 5.7604
  273. 2730 DATA 1.17, 14.9876, 4.8051
  274. 2740 DATA 1.18, 15.1339, 3.8473
  275. 2750 DATA 1.19, 15.2219, 2.8891
  276. 2760 :
  277. 2770 DATA 1.20, 15.2518, 1.9351
  278. 2780 DATA 1.21, 15.2224, 0.9886
  279. 2790 DATA 1.22, 15.1367, 0.0527
  280. 2800 DATA 1.23, 14.9957, -0.8697
  281. 2810 DATA 1.24, 14.8009, -1.7747
  282. 2820 :
  283. 2830 DATA 1.25, 14.5535, -2.6605
  284. 2840 DATA 1.26, 14.2553, -3.5237
  285. 2850 DATA 1.27, 13.9081, -4.3612
  286. 2860 DATA 1.28, 13.5141, -5.1700
  287. 2870 DATA 1.29, 13.0748, -5.9485
  288. 2880 :
  289. 2890 DATA 1.30, 12.5930, -6.6930
  290. 2900 DATA 1.31, 12.0693, -7.4008
  291. 2910 DATA 1.32, 11.5076, -8.0708
  292. 2920 DATA 1.33, 10.9104, -8.7012
  293. 2930 DATA 1.34, 10.2808, -9.2899
  294. 2940 :
  295. 2950 DATA 1.35, 9.6207, -9.8361
  296. 2960 DATA 1.36, 8.9333, -10.3379
  297. 2970 DATA 1.37, 8.2216, -10.7941
  298. 2980 DATA 1.38, 7.4890, -11.2033
  299. 2990 DATA 1.39, 6.7374, -11.5652
  300.